EnigmA Amiga Run 1995 November

home *** CD-ROM | disk | FTP | other *** search

/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / giochi / hf1.lha / Main / KarateGang.Amos / KarateGang.amosSourceCode

Wrap

AMOS Source Code | 1993-03-08 | 44KB | 1,348 lines

' 11.5.95 Set Buffer 1 Dim HYPPYKORKEUS(11) Global HYPPYKORKEUS(),DELAY,MUSAT,X,X2,KORKEUS,ENERGY#,ENERGY2#,FRAME,FRAME2,VILKKUTIME,FRAMEIDENMAARA,NAPPIS,NAPPIS2,KAATUMISENERGY,KAATUMISENERGY2,KAANNETTY Close Workbench X=100 X2=250 KORKEUS=200 ENERGY#=40 ENERGY2#=5 KAATUMISENERGY=200 KAATUMISENERGY2=200 FRAME2=1 FRAME=1 VILKKUTIME=25 Proc EKALEVELI Screen Close 1 Erase 7 Del Bob FRAMEIDENMAARA+1 To Length(1) If Prg Under Bsend 1 Poke Start(11),NAPPIS Poke Start(11)+5,NAPPIS2 Poke Start(11)+1,MUSAT Poke Start(11)+16,DELAY Bsend 11 Bsend 14 End If End Procedure EKALEVELI Auto View Off Screen Open 0,20,20,2,Lowres Screen Close 0 If Prg Under Bgrab 1 Bgrab 11 Bgrab 14 Else Load "hf1:Main/ValkoNinzat-lr.abk" Load "T:Pankki.Abk",11 Load "T:Hyppy.abk",14 End If NAPPIS=Peek(Start(11)) NAPPIS2=Peek(Start(11)+5) MUSAT=Peek(Start(11)+1) DELAY=Peek(Start(11)+16) FRAMEIDENMAARA=Length(1) Load "hf1:Main/MustaNinzat-lr.abk",1 Load "HF1:Main/Energy.abk",1 Load "Hf1:Main/KarateGangTausta.Abk",20 Unpack 20 To 1 Erase 20 Hide View Double Buffer Autoback 1 If MUSAT Track Load "hf1:Main/KarateGangModule",7 Track Play 7 End If Bob 3,10,230,55 Limit Bob 3,16,200 To 200,256 Bob 4,150,230,55 Limit Bob 4,176,200 To 320,256 Bob 5,10,230,55 Limit Bob 5,16,200 To 200,256 Bob 6,150,230,55 Limit Bob 6,176,200 To 320,256 Proc PELI If X<2 Then Goto LOOSER Bob Off 1 Bob Update Wait Vbl Put Bob 2 X2=300 KAATUNUT2=0 ENERGY2#=10 KAATUMISENERGY2=200 KAANNETTY2=0 Proc PELI If X<2 Then Goto LOOSER Bob Off 1 Bob Update Wait Vbl Put Bob 2 X2=300 KAATUNUT2=0 ENERGY2#=15 KAATUMISENERGY2=200 KAANNETTY2=0 Proc PELI If X<2 LOOSER: Poke Start(11)+2,X+1 Fade 10 Wait 130 Else Poke Start(11)+2,0 End If End Proc ' Framet: ' ' 0-16 = kï¿½vely ' 100-199 = lyï¿½nti ' 201 = Ylï¿½blockaus ' 202 = Alablockaus ' 250 = Kï¿½ï¿½ntymisen vï¿½liasento ' 300-399 = nilï¿½kkaanpotku ' 400-499 = masuunpotku ' 500-599 = kiertopotku pï¿½ï¿½hï¿½n ' 600-699 = pï¿½ï¿½hï¿½npotku ' 700-799 = kï¿½ï¿½ntï¿½lyï¿½nti ' 800-899 = kyykkyyn ' 900-999 = Woltti ' 1000-1099 = Potku Kaato ' 1100-1199 = Potku Lento Procedure PELI DUUI: AKK=KAATUMISENERGY*0.64 Bob 3,AKK+16,230,FRAMEIDENMAARA*2+1 AKK=ENERGY#*3.2 Bob 5,AKK+16,240,FRAMEIDENMAARA*2+1 If NAPPIS=2 TIKKU=0 K=Key Shift ' Up If Peek(Start(11)+6)<$80 If Key State(Peek(Start(11)+6)) Bset 0,TIKKU End If Else If Peek(Start(11)+6)-$80=K Bset 0,TIKKU End If End If ' Down If Peek(Start(11)+8)<$80 If Key State(Peek(Start(11)+8)) Bset 1,TIKKU End If Else If Peek(Start(11)+8)-$80=K Bset 1,TIKKU End If End If ' Left If Peek(Start(11)+10)<$80 If Key State(Peek(Start(11)+10)) Bset 2,TIKKU End If Else If Peek(Start(11)+10)-$80=K Bset 2,TIKKU End If End If ' Right If Peek(Start(11)+12)<$80 If Key State(Peek(Start(11)+12)) Bset 3,TIKKU End If Else If Peek(Start(11)+12)-$80=K Bset 3,TIKKU End If End If ' Fire If Peek(Start(11)+14)<$80 If Key State(Peek(Start(11)+14)) Bset 4,TIKKU End If Else If Peek(Start(11)+14)-$80=K Bset 4,TIKKU End If End If Else TIKKU=Joy(NAPPIS) End If If KAANNETTY>0 A=Btst(3,TIKKU) If Btst(2,TIKKU)=-1 Bset 3,TIKKU Else Bclr 3,TIKKU End If If A=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If End If If KAATUMISENERGY<200 and ENERGY#>0 Add KAATUMISENERGY,2 End If If KAATUNUT>0 If KAATUNUT=400 If KAATUMISENERGY<0 FRAME=1 KAATUNUT=399 VILKKU1=VILKKUTIME ENERGY#=ENERGY#-4 If NILKKAKAATU=2 If KAANNETTY2=0 KAANNETTY=$8000 Else KAANNETTY=0 End If NILKKAKAATU=0 Else KAANNETTY=KAANNETTY2 End If Else KAATUNUT=0 Bob 1,X,KORKEUS,19+KAANNETTY FRAME=1 If NILKKAKAATU=2 If KAANNETTY2=0 Add X,3 Else Add X,-3 End If Else If KAANNETTY2=0 Add X,-3 Else Add X,3 End If End If NILKKAKAATU=0 End If Else Add KAATUNUT,-8 If KAATUNUT>250 If KAATUNUT>320 If KAATUNUT>350 If KAATUNUT>380 If NILKKAKAATU=0 If KAANNETTY=0 Add X,-15 Else Add X,15 End If Bob 1,X,KORKEUS-20,7+KAANNETTY Else Bob 1,X,KORKEUS,7+KAANNETTY End If Else If NILKKAKAATU=0 If KAANNETTY=0 Add X,-10 Else Add X,10 End If Bob 1,X,KORKEUS-14,8+KAANNETTY Else Bob 1,X,KORKEUS,8+KAANNETTY End If End If Else If NILKKAKAATU=0 If KAANNETTY=0 Add X,-4 Else Add X,4 End If Bob 1,X,KORKEUS-5,9+KAANNETTY Else Bob 1,X,KORKEUS,9+KAANNETTY End If End If Else If NILKKAKAATU=0 If KAANNETTY=0 Dec X Else Inc X End If End If Bob 1,X,KORKEUS,10+KAANNETTY End If Else NILKKAKAATU=0 Bob 1,X,KORKEUS,10+KAANNETTY If ENERGY#<1 and KAATUMISENERGY<1 X=0 Goto PROKEND End If End If End If Else Rem *********** LYANNIT ****************** BLOCKKAUS=0 If Btst(4,TIKKU)=-1 and FRAME<100 : Rem *** Fire If Btst(0,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½npotku, Fire ja up ja right FRAME=600 Else If Btst(0,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti, Fire ja up ja left FRAME=700 Else If Btst(1,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½potku pï¿½ï¿½hï¿½n, Fire ja down ja left FRAME=500 Else If Btst(0,TIKKU) : Rem *** Up FRAME=1100 Else If Btst(3,TIKKU)=-1 : Rem *** Right FRAME=400 Else If Btst(1,TIKKU)=-1 : Rem *** Down FRAME=300 Else If Btst(2,TIKKU) : Rem *** Left FRAME=900 End If End If End If End If End If End If End If End If If FRAME=250 A=Btst(3,TIKKU) If Btst(2,TIKKU)=-1 Bset 3,TIKKU Else Bclr 3,TIKKU End If If A=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If If KAANNETTY=0 KAANNETTY=$8000 Else KAANNETTY=0 End If FRAME=1 End If If FRAME>799 and FRAME<850 and Btst(1,TIKKU)<>-1 FRAME=850 End If If FRAME<100 If Btst(0,TIKKU) : Rem *** Up If Btst(3,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½nlyï¿½nti, Up ja Right FRAME=100 Else If Btst(2,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntyminen, Up ja Left FRAME=250 Else If FRAME2>299 and FRAME2<500 : Rem *** Torjunta, Up FRAME=202 BLOCKKAUS=2 Else FRAME=201 BLOCKKAUS=1 End If End If End If Else If Btst(1,TIKKU)=-1 : Rem *** Kyykkyyn, Down If BLOCKKAUS<>3 FRAME=800 BLOCKKAUS=3 End If Else If Btst(3,TIKKU)=-1 and KAANNETTY=0 or Btst(2,TIKKU)=-1 and KAANNETTY>0 : Rem *** Right Add X,8 Add FRAME,1,1 To 16 End If If Btst(2,TIKKU)=-1 and KAANNETTY=0 or Btst(3,TIKKU)=-1 and KAANNETTY>0 : Rem *** Left Add X,-8 Add FRAME,-1,1 To 16 End If End If End If End If If FRAME>99 If FRAME>199 and FRAME<300 : Rem *** Torjunnat If FRAME=201 Bob 1,X,KORKEUS,15+KAANNETTY FRAME=1 Else If FRAME=202 Bob 1,X,KORKEUS,16+KAANNETTY FRAME=1 Else If FRAME=250 Bob 1,X,KORKEUS,19+KAANNETTY End If End If End If Else Inc FRAME If FRAME>899 and FRAME<1000 : Rem *** Woltti If KAANNETTY=0 Add X,-15 Else Add X,15 End If If FRAME>913 FRAME=1 Else Bob 1,X,KORKEUS,-426+FRAME/2+KAANNETTY End If End If If FRAME>399 and FRAME<500 : Rem *** Masuunpotku If FRAME>402 If FRAME>404 If FRAME>406 If FRAME>408 If FRAME>410 FRAME=1 Else Bob 1,X,KORKEUS,11+KAANNETTY End If Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else If X2-X>45 and X2-X<75 and KAANNETTY=0 or X-X2>45 and X-X2<75 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.3 Add KAATUMISENERGY2,-25 Else ENERGY2#=ENERGY2#-2 Add KAATUMISENERGY2,-50 End If End If End If Bob 1,X,KORKEUS,12+KAANNETTY End If Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else Bob 1,X,KORKEUS,11+KAANNETTY End If End If If FRAME>1099 and FRAME<1200 : Rem *** potku lento If FRAME>1104 If KAANNETTY=0 Add X,6 Else Add X,-6 End If If X2-X>45 and X2-X<75 and KAANNETTY=0 or X-X2>45 and X-X2<75 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If FRAME2<1105 or FRAME2>1116 or FRAME>1116 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.05 Add KAATUMISENERGY2,-5 Else ENERGY2#=ENERGY2#-0.4 Add KAATUMISENERGY2,-9 End If Else If Peek(Start(14)+FRAME-1105)>=Peek(Start(14)+FRAME2-1105) ENERGY2#=ENERGY2#-0.4 Add KAATUMISENERGY2,-9 End If End If End If End If If FRAME>1116 FRAME=1 Else Bob 1,X,KORKEUS-Peek(Start(14)+FRAME-1105),31+KAANNETTY End If Else Bob 1,X,KORKEUS,24+KAANNETTY End If End If If FRAME>99 and FRAME<200 : Rem *** Lyï¿½nti If FRAME>102 If FRAME>104 If FRAME>106 FRAME=1 Else Bob 1,X,KORKEUS,5+KAANNETTY End If Else If X2-X>50 and X2-X<75 and KAANNETTY=0 or X-X2>50 and X-X2<75 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.2 Add KAATUMISENERGY2,-25 Else ENERGY2#=ENERGY2#-0.6 Add KAATUMISENERGY2,-35 End If End If End If Bob 1,X,KORKEUS,6+KAANNETTY End If Else Bob 1,X,KORKEUS,5+KAANNETTY End If End If If FRAME>499 and FRAME<600 : Rem *** Kieropotku pï¿½ï¿½hï¿½n If KAANNETTY=0 Add X,4 Else Add X,-4 End If If FRAME>502 If FRAME>504 If FRAME>506 If FRAME>508 If KAANNETTY=0 Add X,6 Else Add X,-6 End If FRAME=1 Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.5 Add KAATUMISENERGY2,-35 Else ENERGY2#=ENERGY2#-2 Add KAATUMISENERGY2,-90 End If End If End If Bob 1,X,KORKEUS,17+KAANNETTY End If Else Bob 1,X,KORKEUS,18+KAANNETTY End If Else If KAANNETTY=0 Bob 1,X,KORKEUS,16+$8000 Else Bob 1,X,KORKEUS,16 End If End If Else If KAANNETTY=0 Bob 1,X,KORKEUS,11+$8000 Else Bob 1,X,KORKEUS,11 End If End If End If If FRAME>699 and FRAME<800 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti If FRAME>702 If FRAME>704 If FRAME>705 If KAANNETTY=0 KAANNETTY=$8000 Else KAANNETTY=0 End If Bob 1,X,KORKEUS,1+KAANNETTY FRAME=1 Else Bob 1,X,KORKEUS,19+KAANNETTY End If Else If X-X2>50 and X-X2<70 and KAANNETTY=0 or X2-X>30 and X2-X<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 NILKKAKAATU2=2 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.4 Add KAATUMISENERGY2,-35 Else ENERGY2#=ENERGY2#-1.5 Add KAATUMISENERGY2,-70 End If End If End If Bob 1,X,KORKEUS,21+KAANNETTY End If Else Bob 1,X,KORKEUS,20+KAANNETTY End If End If If FRAME>599 and FRAME<700 : Rem *** Pï¿½ï¿½hï¿½npotku If FRAME>602 If FRAME>604 If FRAME>606 If FRAME>608 FRAME=1 Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If BLOCKKAUS2<>3 and KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 If BLOCKKAUS2=1 ENERGY2#=ENERGY2#-0.3 Add KAATUMISENERGY2,-30 Else ENERGY2#=ENERGY2#-1 Add KAATUMISENERGY2,-50 End If End If End If End If Bob 1,X,KORKEUS,17+KAANNETTY Else Bob 1,X,KORKEUS,16+KAANNETTY End If Else Bob 1,X,KORKEUS,11+KAANNETTY End If End If If FRAME>799 and FRAME<900 : Rem *** Kyykkyyn If FRAME>849 If FRAME>851 FRAME=1 Bob 1,X,KORKEUS,1+KAANNETTY Else Bob 1,X,KORKEUS,22+KAANNETTY End If Else If FRAME>802 BLOCKKAUS=3 FRAME=803 Bob 1,X,KORKEUS,23+KAANNETTY Else Bob 1,X,KORKEUS,22+KAANNETTY End If End If End If If FRAME>299 and FRAME<400 : Rem *** Nilï¿½kkaanpotku If FRAME>302 If FRAME>304 If FRAME>306 FRAME=1 Else Bob 1,X,KORKEUS,13+KAANNETTY End If Else If X2-X>30 and X2-X<55 and KAANNETTY=0 or X-X2>30 and X-X2<55 and KAANNETTY>0 If KAATUNUT2<1 and VILKKU2<1 KAATUNUT2=400 NILKKAKAATU2=1 If BLOCKKAUS2=2 ENERGY2#=ENERGY2#-0.1 Add KAATUMISENERGY2,-20 Else ENERGY2#=ENERGY2#-1 Add KAATUMISENERGY2,-50 End If End If End If Bob 1,X,KORKEUS,14+KAANNETTY End If Else Bob 1,X,KORKEUS,13+KAANNETTY End If End If End If Else If FRAME>4 If FRAME>8 If FRAME>12 Bob 1,X,KORKEUS,4+KAANNETTY Else Bob 1,X,KORKEUS,3+KAANNETTY End If Else Bob 1,X,KORKEUS,2+KAANNETTY End If Else Bob 1,X,KORKEUS,1+KAANNETTY End If End If If VILKKU1>0 Dec VILKKU1 If VILKKUN1=1 Bob 1,X,KORKEUS,100+KAANNETTY End If Bchg 0,VILKKUN1 End If End If If X<30 Then X=30 If X>275 Then X=275 ' ******************************************************** ' ********************** Vihulainen ********************** ' ******************************************************** AKK=KAATUMISENERGY2*0.64 Bob 4,AKK+176,230,FRAMEIDENMAARA*2+2 AKK=ENERGY2#*3.2 Bob 6,AKK+176,240,FRAMEIDENMAARA*2+2 If NAPPIS2=2 TIKKU=0 K=Key Shift ' Up If Peek(Start(11)+7)<$80 If Key State(Peek(Start(11)+7)) Bset 0,TIKKU End If Else If Peek(Start(11)+7)-$80=K Bset 0,TIKKU End If End If ' Down If Peek(Start(11)+9)<$80 If Key State(Peek(Start(11)+9)) Bset 1,TIKKU End If Else If Peek(Start(11)+9)-$80=K Bset 1,TIKKU End If End If ' Left If Peek(Start(11)+11)<$80 If Key State(Peek(Start(11)+11)) Bset 2,TIKKU End If Else If Peek(Start(11)+11)-$80=K Bset 2,TIKKU End If End If ' Right If Peek(Start(11)+13)<$80 If Key State(Peek(Start(11)+13)) Bset 3,TIKKU End If Else If Peek(Start(11)+13)-$80=K Bset 3,TIKKU End If End If ' Fire If Peek(Start(11)+15)<$80 If Key State(Peek(Start(11)+15)) Bset 4,TIKKU End If Else If Peek(Start(11)+15)-$80=K Bset 4,TIKKU End If End If Else TIKKU=Joy(NAPPIS2) End If If KAANNETTY2>0 A=Btst(3,TIKKU) If Btst(2,TIKKU)=-1 Bset 3,TIKKU Else Bclr 3,TIKKU End If If A=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If End If If KAATUMISENERGY2<200 and ENERGY2#>0 Add KAATUMISENERGY2,2 End If If KAATUNUT2>0 If KAATUNUT2=400 If KAATUMISENERGY2<0 KAATUNUT2=399 VILKKU2=VILKKUTIME FRAME2=1 ENERGY2#=ENERGY2#-4 If NILKKAKAATU2=2 NILKKAKAATU2=0 If KAANNETTY=0 KAANNETTY2=$8000 Else KAANNETTY2=0 End If Else KAANNETTY2=KAANNETTY End If Else KAATUNUT2=0 Bob 2,X2,KORKEUS,19+FRAMEIDENMAARA+KAANNETTY2 FRAME2=1 If NILKKAKAATU2=2 If KAANNETTY>0 Add X2,3 Else Add X2,-3 End If Else If KAANNETTY>0 Add X2,-3 Else Add X2,3 End If End If NILKKAKAATU2=0 End If Else Add KAATUNUT2,-8 If KAATUNUT2>250 If KAATUNUT2>320 If KAATUNUT2>350 If KAATUNUT2>380 If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,15 Else Add X2,-15 End If Bob 2,X2,KORKEUS-20,7+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,7+KAANNETTY2+FRAMEIDENMAARA End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,10 Else Add X2,-10 End If Bob 2,X2,KORKEUS-14,8+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,8+KAANNETTY2+FRAMEIDENMAARA End If End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Add X2,4 Else Add X2,-4 End If Bob 2,X2,KORKEUS-5,9+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,9+KAANNETTY2+FRAMEIDENMAARA End If End If Else If NILKKAKAATU2=0 If KAANNETTY2=0 Inc X2 Else Dec X2 End If End If Bob 2,X2,KORKEUS,10+KAANNETTY2+FRAMEIDENMAARA End If Else NILKKAKAATU2=0 Bob 2,X2,KORKEUS,10+KAANNETTY2+FRAMEIDENMAARA If ENERGY2#<1 and KAATUMISENERGY2<1 Goto PROKEND End If End If End If Else Rem *********** LYANNIT ****************** BLOCKKAUS2=0 If Btst(4,TIKKU)=-1 and FRAME2<100 : Rem *** Fire If Btst(0,TIKKU)=-1 and Btst(2,TIKKU)=-1 : Rem *** Pï¿½ï¿½hï¿½npotku, Fire ja Up ja Right FRAME2=600 Else If Btst(0,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti, fire ja Up ja Left FRAME2=700 Else If Btst(1,TIKKU)=-1 and Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntï¿½potku pï¿½ï¿½hï¿½n, fire ja down ja left FRAME2=500 Else If Btst(0,TIKKU) : Rem *** Up FRAME2=1100 Else If Btst(2,TIKKU)=-1 : Rem *** Masuunpotku, Right FRAME2=400 Else If Btst(1,TIKKU) : Rem *** Down FRAME2=300 Else If Btst(3,TIKKU)=-1 : Rem *** Left FRAME2=900 End If End If End If End If End If End If End If End If If FRAME2=250 A=Btst(3,TIKKU) If Btst(2,TIKKU)=-1 Bset 3,TIKKU Else Bclr 3,TIKKU End If If A=-1 Bset 2,TIKKU Else Bclr 2,TIKKU End If If KAANNETTY2=0 KAANNETTY2=$8000 FRAME2=1 Else KAANNETTY2=0 FRAME2=1 End If End If If FRAME2>799 and FRAME2<850 and Btst(1,TIKKU)<>-1 FRAME2=850 End If If FRAME2<100 If Btst(0,TIKKU) : Rem *** ylï¿½torjunta, Up If Btst(2,TIKKU)=-1 FRAME2=100 Else If Btst(3,TIKKU)=-1 : Rem *** Kï¿½ï¿½ntyminen FRAME2=250 Else If FRAME>299 and FRAME<500 FRAME2=202 BLOCKKAUS2=2 Else FRAME2=201 BLOCKKAUS2=1 End If End If End If Else If Btst(1,TIKKU)=-1 : Rem *** Kyykkyyn, Down If BLOCKKAUS2<>3 FRAME2=800 BLOCKKAUS2=3 End If Else If Btst(3,TIKKU)=-1 and KAANNETTY2=0 or Btst(2,TIKKU)=-1 and KAANNETTY2>0 : Rem *** Right Add X2,8 Add FRAME2,1,1 To 16 End If If Btst(2,TIKKU)=-1 and KAANNETTY2=0 or Btst(3,TIKKU)=-1 and KAANNETTY2>0 : Rem *** Left Add X2,-8 Add FRAME2,-1,1 To 16 End If End If End If End If If FRAME2>99 If FRAME2>199 and FRAME2<300 : Rem *** Torjunnat If FRAME2=201 Bob 2,X2,KORKEUS,15+FRAMEIDENMAARA+KAANNETTY2 FRAME2=1 End If If FRAME2=202 Bob 2,X2,KORKEUS,16+FRAMEIDENMAARA+KAANNETTY2 FRAME2=1 End If If FRAME2=250 Bob 2,X2,KORKEUS,19+FRAMEIDENMAARA+KAANNETTY2 End If Else Inc FRAME2 If FRAME2>1099 and FRAME2<1200 : Rem *** potku lento If FRAME2>1104 If KAANNETTY2=0 Add X2,-6 Else Add X2,6 End If If X2-X>45 and X2-X<75 and KAANNETTY2=0 or X-X2>45 and X-X2<75 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 and BLOCKKAUS<>3 KAATUNUT=400 If FRAME<1105 or FRAME>1116 or FRAME2>1116 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.05 Add KAATUMISENERGY,-5 Else ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-9 End If Else If Peek(Start(14)+FRAME2-1105)>=Peek(Start(14)+FRAME-1105) ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-9 End If End If End If End If If FRAME2>1116 FRAME2=1 Else Bob 2,X2,KORKEUS-Peek(Start(14)+FRAME2-1105),31+KAANNETTY2+FRAMEIDENMAARA End If Else Bob 2,X2,KORKEUS,24+KAANNETTY2+FRAMEIDENMAARA End If End If If FRAME2>899 and FRAME2<1000 : Rem *** Woltti If KAANNETTY2=0 Add X2,15 Else Add X2,-15 End If If FRAME2>913 FRAME2=1 Else Bob 2,X2,KORKEUS,KAANNETTY2+(-426+FRAME2/2)+FRAMEIDENMAARA End If End If If FRAME2>999 and FRAME2<1099 : Rem *** Potku kaato If FRAME2>1002 If FRAME2>1004 If FRAME2>1006 FRAME2=1 Else Bob 2,X2,KORKEUS,34+KAANNETTY2+FRAMEIDENMAARA End If Else If X2-X>20 and X2-X<55 and KAANNETTY2=$8000 or X-X2>30 and X-X2<55 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=1 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.1 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,32+KAANNETTY2+FRAMEIDENMAARA End If Else Bob 2,X2,KORKEUS,31+KAANNETTY2+FRAMEIDENMAARA End If End If If FRAME2>699 and FRAME2<800 : Rem *** Kï¿½ï¿½ntï¿½lyï¿½nti If FRAME2>702 If FRAME2>704 If FRAME2>705 If KAANNETTY2=0 KAANNETTY2=$8000 Else KAANNETTY2=0 End If Bob 2,X2,KORKEUS,1+FRAMEIDENMAARA+KAANNETTY2 FRAME2=1 Else Bob 2,X2,KORKEUS,19+KAANNETTY2+FRAMEIDENMAARA End If Else If X-X2>45 and X-X2<70 and KAANNETTY2=0 or X2-X>30 and X2-X<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=2 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.4 Add KAATUMISENERGY,-35 Else ENERGY#=ENERGY#-1.5 Add KAATUMISENERGY,-70 End If End If End If Bob 2,X2,KORKEUS,21+KAANNETTY2+FRAMEIDENMAARA End If Else Bob 2,X2,KORKEUS,20+KAANNETTY2+FRAMEIDENMAARA End If End If If FRAME2>399 and FRAME2<500 : Rem *** Masuunpotku If FRAME2>402 If FRAME2>404 If FRAME2>406 If FRAME2>408 If FRAME2>410 FRAME2=1 Else Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,16+FRAMEIDENMAARA+KAANNETTY2 End If Else If X2-X>45 and X2-X<75 and KAANNETTY2=0 or X-X2>45 and X-X2<75 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.3 Add KAATUMISENERGY,-25 Else Add KAATUMISENERGY,-50 ENERGY#=ENERGY#-2 End If End If End If Bob 2,X2,KORKEUS,12+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,16+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA+KAANNETTY2 End If End If If FRAME2>299 and FRAME2<400 : Rem *** Nilï¿½kkaanpotku If FRAME2>302 If FRAME2>304 If FRAME2>306 FRAME2=1 Else Bob 2,X2,KORKEUS,13+FRAMEIDENMAARA+KAANNETTY2 End If Else If X2-X>30 and X2-X<55 and KAANNETTY2=0 or X-X2>30 and X-X2<55 and KAANNETTY2>0 If KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 NILKKAKAATU=1 If BLOCKKAUS=2 ENERGY#=ENERGY#-0.1 Add KAATUMISENERGY,-20 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If Bob 2,X2,KORKEUS,14+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,13+FRAMEIDENMAARA+KAANNETTY2 End If End If If FRAME2>99 and FRAME2<200 : Rem *** Lyï¿½nti If FRAME2>102 If FRAME2>104 If FRAME2>106 FRAME2=1 Else Bob 2,X2,KORKEUS,5+FRAMEIDENMAARA+KAANNETTY2 End If Else If X2-X>50 and X2-X<75 and KAANNETTY2=0 or X-X2>50 and X-X2<75 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.2 Add KAATUMISENERGY,-25 Else ENERGY#=ENERGY#-0.6 Add KAATUMISENERGY,-35 End If End If End If Bob 2,X2,KORKEUS,6+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,5+FRAMEIDENMAARA+KAANNETTY2 End If End If If FRAME2>599 and FRAME2<700 : Rem *** Pï¿½ï¿½hï¿½npotku If FRAME2>602 If FRAME2>604 If FRAME2>606 If FRAME2>608 FRAME2=1 Else Bob 2,X2,KORKEUS,16+KAANNETTY2+FRAMEIDENMAARA End If Else If X2-X>30 and X2-X<55 and KAANNETTY2=0 or X-X2>30 and X-X2<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.3 Add KAATUMISENERGY,-30 Else ENERGY#=ENERGY#-1 Add KAATUMISENERGY,-50 End If End If End If End If Bob 2,X2,KORKEUS,17+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,16+KAANNETTY2+FRAMEIDENMAARA End If Else Bob 2,X2,KORKEUS,11+KAANNETTY2+FRAMEIDENMAARA End If End If If FRAME2>799 and FRAME2<900 : Rem *** Kyykkyyn If FRAME2>849 If FRAME2>851 FRAME2=1 Bob 2,X2,KORKEUS,1+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,22+KAANNETTY2+FRAMEIDENMAARA End If Else If FRAME2>802 BLOCKKAUS2=3 FRAME2=803 Bob 2,X2,KORKEUS,23+KAANNETTY2+FRAMEIDENMAARA Else Bob 2,X2,KORKEUS,22+KAANNETTY2+FRAMEIDENMAARA End If End If End If If FRAME2>499 and FRAME2<600 : Rem *** Kieropotku pï¿½ï¿½hï¿½n If KAANNETTY2=0 Add X2,-4 Else Add X2,4 End If If FRAME2>502 If FRAME2>504 If FRAME2>506 If FRAME2>508 If KAANNETTY=0 Add X2,-6 Else Add X2,6 End If FRAME2=1 Else If X2-X>30 and X2-X<55 and KAANNETTY2=0 or X-X2>30 and X-X2<55 and KAANNETTY2>0 If BLOCKKAUS<>3 and KAATUNUT<1 and VILKKU1<1 KAATUNUT=400 If BLOCKKAUS=1 ENERGY#=ENERGY#-0.5 Add KAATUMISENERGY,-35 Else ENERGY#=ENERGY#-2 Add KAATUMISENERGY,-90 End If End If End If Bob 2,X2,KORKEUS,17+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,18+FRAMEIDENMAARA+KAANNETTY2 End If Else If KAANNETTY2=0 Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA+$8000 Else Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA End If End If Else If KAANNETTY2=0 Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA+$8000 Else Bob 2,X2,KORKEUS,11+FRAMEIDENMAARA End If End If End If End If Else If FRAME2>4 : Rem *** Kï¿½vely If FRAME2>8 If FRAME2>12 Bob 2,X2,KORKEUS,4+FRAMEIDENMAARA+KAANNETTY2 Else Bob 2,X2,KORKEUS,3+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,2+FRAMEIDENMAARA+KAANNETTY2 End If Else Bob 2,X2,KORKEUS,1+FRAMEIDENMAARA+KAANNETTY2 End If End If If VILKKU2>0 Dec VILKKU2 If VILKKUN2=1 Bob 2,X2,KORKEUS,100+KAANNETTY2 End If Bchg 0,VILKKUN2 End If End If If X2>275 X2=275 End If If X2<30 X2=30 End If Wait Vbl If DELAY>0 Wait DELAY End If If Inkey$<>"" If Key State(25)=-1 While Key State(25)=-1 : Wend While Key State(25)<>-1 : Wend While Key State(25)=-1 : Wend End If If Key State(2) Add NAPPIS2,1,0 To 2 While Key State(2) : Wend End If If Key State(1) Add NAPPIS,1,0 To 2 While Key State(1) : Wend End If If Key State(94) and DELAY>0 : Dec DELAY : While Key State(94) : Wend : End If If Key State(74) and DELAY<15 : Inc DELAY : While Key State(74) : Wend : End If If Key State(55) If MUSAT=1 Erase 7 Else Track Load "hf1:Main/KarateGangModule",7 Track Play 7 End If Bchg 0,MUSAT While Key State(55) : Wend End If End If If Key State(69) Then X=1 : Goto PROKEND Goto DUUI PROKEND: End Proc